home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / EDT / S / M2Edt / LayoutWindows.edt < prev    next >
Encoding:
Text File  |  1996-09-27  |  572 b   |  29 lines
  1. /* layout windows */
  2. OPTIONS RESULTS
  3.  
  4. 'Get' SCREENHEIGHT
  5. screenHeight=RESULT-14
  6. 'Get' SCREENWIDTH
  7. screenWidth=RESULT
  8. 'Get' WINDOWS
  9. numWindows=RESULT
  10. vw=numWindows
  11. IF numWindows > 4 THEN
  12.   vw=2
  13. IF numWindows > 9 THEN
  14.   vw=3
  15. IF numWindows > 16 THEN
  16.   vw=4
  17. IF numWindows > 25 THEN
  18.   vw=5
  19. windowHeight=screenHeight%vw
  20. windowWidth=screenWidth%((numWindows+vw-1)%vw)
  21. 'Get' WINDOWID
  22. thisWindow=RESULT
  23. 'FirstWindow'
  24. DO i=0 TO numWindows-1
  25.   'SetWindowBox' i%vw*windowWidth i//vw*windowHeight+14 windowWidth windowHeight
  26.   'NextWindow'
  27. END
  28. 'SelectWindow' thisWindow
  29. 'WindowToFront'